home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / comm / ums / user.lha / User / rexx / QuitUMS.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1993-11-03  |  233 b   |  14 lines
  1. /* quit the currently running default UMS server */
  2.  
  3. libname = "ums.library"
  4.  
  5. if ~show("L", libname) then do
  6.   if ~addlib(libname, 0, -210, 8) then do
  7.     say libname "not found!"
  8.     exit
  9.   end
  10. end
  11.  
  12. say "quitting..."
  13. call QuitUMS()
  14.